home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Bonus.dir / 00023.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  260 b   |  18 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3. end
  4.  
  5. on mouseLeave
  6.   cursor(-1)
  7. end
  8.  
  9. on mouseUp
  10.   global documento, docAnterior
  11.   cursor(-1)
  12.   set documento to "bonus"
  13.   if docAnterior <> VOID then
  14.     go(1, docAnterior)
  15.   end if
  16.   set docAnterior to 0
  17. end
  18.